home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 7 / Apprentice-Release7.iso / Source Code / C / Applications / Tcl-Tk 8.0 / Pre-installed version / tcl8.0 / compat / gettod.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-08-15  |  626 b   |  33 lines  |  [TEXT/CWIE]
  1. /* 
  2.  * gettod.c --
  3.  *
  4.  *    This file provides the gettimeofday function on systems
  5.  *    that only have the System V ftime function.
  6.  *
  7.  * Copyright (c) 1995 Sun Microsystems, Inc.
  8.  *
  9.  * See the file "license.terms" for information on usage and redistribution
  10.  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  11.  *
  12.  * SCCS: @(#) gettod.c 1.2 96/02/15 12:08:26
  13.  */
  14.  
  15. #include "tcl.h"
  16. #include "tclPort.h"
  17. #include <sys/timeb.h>
  18.  
  19. #undef timezone
  20.  
  21. int
  22. gettimeofday(tp, tz)
  23. struct timeval *tp;
  24. struct timezone *tz;
  25. {
  26.     struct timeb t;
  27.     ftime(&t);
  28.     tp->tv_sec = t.time;
  29.     tp->tv_usec = t. millitm * 1000;
  30.     return 0;
  31. }
  32.  
  33.